home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 June
/
EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso
/
softwareupdate
/
system
/
amicdfs2
/
installcdfs
< prev
next >
Wrap
Text File
|
1997-04-23
|
5KB
|
186 lines
; $VER: AmiCDFS Installer 1.0 (22.4.97) Neil Bothwick
;
; This installer was written specifically for installing
; AmiCDFS from the CU amiga cover CDs
;;; Set paramemters and defaults
(set
CD32Dev 'cd.device'
CD32Unit '0'
SquirrelDev 'squirrelscsi.device'
SquirrelUnit '3'
OtherDev 'scsi.device'
OtherUnit '3'
DevNum '0'
)
;;;
;;; Check CPU
(set cpu030 (> (database 'cpu') '68020'))
;;;
;;; Get device driver and unit
(set DriveNum
(askchoice
(prompt 'Are you installing on a CD32, an A1200 with Squirrel (or Surf Squirrel), or a different setup?')
(help 'This information is needed to determine the correct device driver')
(choices '\x1B[2pCD32' 'Squirrel/Surf Squirrel' 'Other')
(default 2)
)
)
(set DevDriver
(select DriveNum
(CD32Dev)
(SquirrelDev)
(askstring
(prompt 'Enter the name of your device driver\n\nThis is CASE SENSITIVE')
(help
(cat
'This is the driver for your CD drives interface. '
'It is usually something like scsi.device or atapi.device\n\n'
'IMPORTANT: This is Case-Sensitive'
)
)
(default OtherDev)
)
)
)
(set DevUnit
(select DriveNum
(CD32Unit) ; CD32
(askstring ; Squirrel
(prompt 'Enter the unit number of your CDROM drive.')
(help
(cat
'This will be stored in the Icon tooltypes of the file created in '
'DEVS:DOSDrivers, you can change it if you need to by clicking on the '
'icon once and selecting Information from the workbench icons menu'
)
)
(default SquirrelUnit)
)
(askstring ; Other
(prompt 'Enter the unit number of your CDROM drive.')
(help
(cat
'This will be stored in the Icon tooltypes of the file created in '
'DEVS:DOSDrivers, you can change it if you need to by clicking on the '
'icon once and selecting Information from the workbench icons menu'
)
)
(default OtherUnit)
)
)
)
;;;
;;; Get unused name for CD drive
; Check for a mounted device
(while (not (run (cat 'testdevice >NIL: CD' DevNum)))
(set DevNum (+ DevNum 1))
)
; Check for a DEVS:DOSDrivers entry
(while (exists (cat 'DEVS:DOSDrivers/CD' DevNum) (noreq))
(set DevNum (+ DevNum 1))
)
; Check for a SYS:Storage/DOSDrivers entry
(while (exists (cat 'SYS:Storage/DOSDrivers/CD' DevNum) (noreq))
(set DevNum (+ DevNum 1))
)
(set DevName (cat 'CD' DevNum))
;;;
;;; Copy files
(copylib
(prompt '') (help '')
(source
(if cpu030
('L/AmiCDFS.030')
('L/AmiCDFS')
)
)
(dest 'L:')
(newname 'AmiCDFS')
)
(copylib
(prompt '') (help '')
(source 'C/Mount')
(dest 'C:')
)
(copylib
(prompt '') (help '')
(source 'C/SetPatch')
(dest 'C:')
)
(copylib
(prompt '') (help '')
(source 'C/SetCDFS')
(dest 'C:')
)
(copylib
(prompt '') (help '')
(source 'LIBS/wbstart.library')
(dest 'LIBS:')
)
(copylib
(prompt '') (help '')
(source 'Icons/def_CDDAdisk.info')
(dest 'ENVARC:sys')
)
;;;
;;; Create mountfile in DEVS:
(textfile
(prompt '') (help '')
(dest (cat 'DEVS:DOSDrivers/' DevName))
(append '/* $VER: CD0 2.36 (22.08.96)\n')
(append ' *\n')
(append ' * CD-ROM filesystem mount entry\n')
(append ' *\n')
(append ' * Created by CU Amiga CD AmiCDFS installer\n')
(append ' */\n')
(append '\n')
(append (cat ' Device = ' DevDriver '\n'))
(append ' FileSystem = L:AmiCDFS\n')
(append ' Flags = 0\n')
(append ' BlocksPerTrack = 32\n')
(append ' BlockSize = 2048\n')
(append ' Reserved = 0\n')
(append ' LowCyl = 0\n')
(append ' HighCyl = 11000\n')
(append ' Surfaces = 1\n')
(append ' Buffers = 64\n')
(append ' BufMemType = 1\n')
(append ' Mask = 0x7fffffff\n')
(append ' GlobVec = -1\n')
(append ' Priority = 10\n')
(append ' DosType = 0x43444653\n')
(append ' StackSize = 600\n')
(append ' Mount = 1\n')
(append '\n')
(append ' Control = "LC BL=8 FB=32"\n')
(append '\n')
(append '/* Unit number is given in icon tooltype\n')
(append ' *\n')
(append ' * Control field template:\n')
(append ' *\n')
(append ' * LC=LOWERCASE/S,CS=CASESENSE/S,\n')
(append ' * HF=HFSFIRST/S,TD=TRACKDISK/S,\n')
(append ' * BL=BUFFERLINES/K/N,FB=FILEBUFFERS/K/N,\n')
(append ' * DC=DISKCHANGE/K/N,MT=MOTORTIME/K/N,\n')
(append ' * SD=STARTDELAY/K/N,TDC=TDCHANGE/S,\n')
(append ' * TOSHIBA/S,OLDMODE/S\n')
(append ' */\n')
)
(copyfiles
(prompt '')(help '')
(source 'CD0.info')
(dest 'DEVS:DOSDrivers')
(newname (cat DevName '.info'))
)
(tooltype
(prompt '') (help '')
(dest (cat 'DEVS:DOSDrivers/' DevName))
(settooltype 'UNIT' DevUnit)
)
;;;
(exit (cat '\nAmiCDFS has been installed as ' DevName ':') (quiet))